home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Utilities / Programming / EnterAct 3.5 / Drag_on Modules / hAWK programs / $FileSizesAndDates < prev    next >
Encoding:
Text File  |  1993-08-28  |  527 b   |  15 lines  |  [TEXT/KEEN]
  1. # $FileSizesAndDates : file name, size of data fork in bytes, mod date.
  2. # # Typically use the "MFS selected files" input option, and "Show stdout".
  3.  
  4. BEGIN {
  5.     print "File name • size • yr:mo:day:hr:min:sec"
  6.     print "----------------------------------------------------------"
  7.     for (i = 1; i < ARGC; ++i)#note ARGV[0] is just "hAWK"
  8.         {
  9.         n = split(ARGV[i], names, ":")
  10.         curSize = fsize(ARGV[i])
  11.         print names[n], "\t•", curSize, "\t•", fdate(ARGV[i])
  12.         totSize += curSize
  13.         }
  14.     print ARGC-1, "files, ", totSize, "bytes total."
  15.     }